program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10;

  type
    macierz = array[1..n, 1..n] of integer;

var
  i, j : integer;
  a, b : macierz;

begin
  {wpisywanie liczb do tablicy a}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=j;
        end; {j}
    end;   {i}   {Koniec wpisywania}

  {przepisywanie liczb z tablicy a do tablicy b}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          b[i,j]:=a[j,i];
        end; {j}
    end;   {i}   {Koniec przepisywania}

  Writeln('Wydruk tablicy a:');
  Writeln;

  {Wydruk zawartosci tablicy a}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(a[i,j]:2,' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy a}

   Writeln;
   Writeln('Wydruk tablicy b:');
   Writeln;

  {Wydruk zawartosci tablicy b}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(b[i,j]:2,' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy b}

  Readln; // czeka na nacisniecie dowolnego klawisza
end.


